040900                                                                  00040900
041000******************************************************************00041000
041100**  2450-ESCRIBIR-FZV0001W                                      **00041100
041200******************************************************************00041200
041210*$%                                                               00041210
041300 2450-ESCRIBIR-FZV0001W.                                          00041300
041400                                                                  00041400
041500     WRITE REG-ZV0001W FROM ZV8230F                               00041500
041510*$$ ESCRIBE EN EL REGISTRO DEL FICHERO LA INFORMACION EN LA COPY  00041510
041510*$$ ESCRIBE EN EL REGISTRO DEL FICHERO LA INFORMACION EN LA C1PY  00041510
041510*$$ ESCRIBE EN EL REGISTRO DEL FICHERO LA INFORMACION EN LA C2PY  00041510
041600                                                                  00041600
041610*$%                                                               00041610
041700     EVALUATE W-FILE-STATUS-ZV0001W                               00041700
041800                                                                  00041800
041900        WHEN  ZEROS                                               00041900
041910*$$ SI EL FILESTATUS ES 0 NO HAY PROBLEMA                         00041910
042000                                                                  00042000
042100              MOVE     CC-ESCRIBIR   TO   VAR-ACCION              00042100
042200              PERFORM  U451-ACC-FICH-SALIDA-01                    00042200
042210*$$ LLAMAMOS A LA FUNCION EN LA COPY PARA LA ESCRITURA            00042210
042300                                                                  00042300
042400        WHEN  OTHER                                               00042400
042410*$$ SI FALLA                                                      00042410
042500                                                                  00042500
042510*$%                                                               00042510
042600              DISPLAY 'ERROR ESCRITURA FICHERO ZV0001W '          00042600
042700              DISPLAY 'FILE STATUS:     ' W-FILE-STATUS-ZV0001W   00042700
042800                                                                  00042800
042900              PERFORM 9999-TRATAR-ERROR                           00042900
042910*%$ MOSTRAMOS Y LLAMAMOS LA FUNCION PARA TRATAR EL ERROR          00042910
042910*%$ MOSTRAMOS Y LLAMAMOS LA FUNCION PARA TRATAR EL ERROR2          00042910
042910*%$ MOSTRAMOS Y LLAMAMOS LA FUNCION PARA TRATAR EL ERROR3          00042910
042910*%$ MOSTRAMOS Y LLAMAMOS LA FUNCION PARA TRATAR EL ERROR 4         00042910
042910*%$ MOSTRAMOS Y LLAMAMOS LA FUNCION PARA TRATAR EL ERROR5          00042910
043000                                                                  00043000
043100     END-EVALUATE.                                                00043100
043110*%$ COMPRUEBA EL FILE STATUS TRAS LA ESCRITURA EN EL ARCHIVO      00043110
043200                                                                  00043200
043300*%$ PARRAFO PARA ESCRIBIR EN FICHERO                              00043300